home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / comm / comm2 / hdrbbs11.lha / HBBS / System / Amiga / CLI / extractdiz < prev    next >
AmigaDOS Script File  |  1996-06-25  |  723b  |  27 lines
  1. .key node,file1,workdir,playpendir,file
  2. .bra {
  3. .ket }
  4. ram:
  5. del ram:file_id.diz >nil:
  6. if exists {playpendir}{file}.lha
  7.   lha x {playpendir}{file} FILE_ID.DIZ ram: >nil:
  8. endif
  9. if exists {playpendir}{file}.lzh
  10.   lha x {playpendir}{file} FILE_ID.DIZ ram: >nil:
  11. endif
  12. if exists {playpendir}{file}.exe
  13.   exedescript x ram:file_id.diz {playpendir}{file}.exe >nil:
  14. endif
  15. if exists {playpendir}{file}.txt
  16.   txtextract e ram:file_id.diz {playpendir}{file}.txt >nil:
  17. endif
  18. if exists {playpendir}{file}.zip
  19.   unzip {playpendir}{file}.zip FILE_ID.DIZ >nil:
  20. endif
  21. if exists {playpendir}{file}.dms
  22.   dmsextract ram:file_id.diz {playpendir}{file}.dms >nil:
  23. endif
  24. if exists ram:file_id.diz
  25.   copy ram:file_id.diz {workdir}{file1}.DIZ
  26. endif
  27.